home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1997 February / JCSM Shareware Collection February 1997 Best of (JCS Marketing)(February 1997).bin / PRGTOOLS / TN2.ZIP / PRIMES.T < prev    next >
Text File  |  1996-11-15  |  810b  |  51 lines
  1. %
  2. % "primes.t" generates all the primes between 0 and 2000
  3. %
  4. %   Sample program for the T Interpreter by:
  5. %
  6. %   Stephen R. Schmitt
  7. %   962 Depot Road
  8. %   Boxborough, MA 01719
  9. %
  10.  
  11. var prime : int
  12. var rprime : real
  13. var i : int
  14. var sqrtp : int
  15. var notprime : boolean
  16.  
  17. program
  18.  
  19.     put 2 : 10 
  20.     put 3 : 10 
  21.   
  22.     prime := 5
  23.   
  24.     loop
  25.      
  26.         rprime := prime
  27.         sqrtp := round( sqrt( rprime ) + 0.5 )
  28.         i := 1
  29.         notprime := false
  30.     
  31.         loop
  32.  
  33.             exit when i >= sqrtp or notprime
  34.             i := i + 2  
  35.             notprime := prime mod i = 0
  36.  
  37.         end loop
  38.  
  39.         if not notprime then
  40.  
  41.             put prime : 10
  42.  
  43.         end if
  44.  
  45.         prime := prime + 2
  46.  
  47.         exit when prime > 2000
  48.  
  49.     end loop
  50.  
  51. end program